home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Multimedia
/
Resource Library: Multimedia.iso
/
hypercrd
/
xcmds
/
dvlprstc.hqx
/
Developer Stack 1.3r
/
card_5204.txt
< prev
next >
Wrap
Text File
|
1991-04-30
|
1KB
|
74 lines
-- card: 5204 from stack: in.3r
-- bmap block id: 40835
-- flags: 4000
-- background id: 2612
-- name: DeProtect
-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=187 top=233 right=284 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try It
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
put "Please select a protected stack"
set cursor to 4
put filename("STAK") into fname
if fname is empty then
play oops
hide message window
exit mouseUp
end if
deprotect fname
if the result is empty
then answer "Deprotect Successful" with "OK"
else osErr the result
end mouseUp
-- part contents for background part 2
----- text -----
DeProtect
-- part contents for background part 3
----- text -----
Calling this will let you remove the standard Hypercard protection from any stack.
Thanks to:
Ned Horvath
Allan Foster
-- part contents for background part 10
----- text -----
Syntax:
DeProtect <filePathName>
<filename> is the full path name of a Hypercard Stack.
If no value is returned to 'the result', then deprotection was successful.
To correctly handle other error codes, use the osErr* command.
-- part contents for background part 13
----- text -----
1
-- part contents for background part 30
----- text -----
XCMD